home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Origami / bindings / fun / pre-char < prev    next >
Encoding:
Text File  |  1996-09-27  |  835 b   |  37 lines
  1. ;OCL{{{}}}
  2. ;OCL{{{  comments
  3. ; jump to previous non-space character or text-line.
  4. ; fold-comments are ignored. folds are closed, when leaving them.
  5. ;OCL}}}
  6. @if-using not(ocl-file-pre-char)
  7.   @use (ocl-file-pre-char)
  8.   ;OCL{{{  libs
  9.   @if-using not(ocl-file-mt-fold) @lib mt-fold @fi
  10.   ;OCL}}}
  11.   ;OCL{{{  previous-text-line
  12.   ( deffun previous-text-line
  13.      ( do
  14.         ( case
  15.            ( test-begin-fold ( close-fold ) )
  16.            ( test-fold-line ( open-fold mtool-bot ) )
  17.           esac
  18.           previous-line
  19.         )
  20.        while and(not(test-text) not(test-top))
  21.      )
  22.   )
  23.   ;OCL}}}
  24.   ;OCL{{{  previous-text-character
  25.   ( deffun previous-text-character
  26.      ( if not(test-begin-line)
  27.         ( backward-character )
  28.        else
  29.         ( previous-text-line
  30.           end-of-line
  31.         )
  32.        fi
  33.      )
  34.   )
  35.   ;OCL}}}
  36. @fi
  37.